NY Times US States Data Analysis

db <- dbConnect(SQLite(), dbname="../COVIDDB/CORVID.sqlite3")
shutdown <- dbGetQuery(db, "SELECT * from shutdown;")
sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
  labs(title="Elasped Days from First Confirmed Case(WA)",
       x="Delayed in Days",y="US States(and DC",
       caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)
## Warning: Removed 5 rows containing missing values (position_stack).

Summary of Cases,Deaths and Death Rate by Date

Summary of Cases and Deaths by State

Summary of Ohio Deaths and Cases

dbDisconnect(db)